home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
User's Choice Windows CD
/
User's Choice Windows CD (CMS Software)(1993).iso
/
utility2
/
uc3g_1.zip
/
BITBLT.SCR
next >
Wrap
Text File
|
1992-07-15
|
401b
|
14 lines
i=0
xStart = 100
yStart = 100
nWidth = 100
nHeight = 100
while(i < nWidth)
GdiEllipse(xStart,yStart,nWidth*2,nHeight*2)
GdiBitBlt(xStart-i,yStart-i,nWidth,nHeight,xStart,yStart)
GdiBitBlt(xStart+i,yStart+i,nWidth,nHeight,xStart,yStart)
GdiBitBlt(xStart+i,yStart-i,nWidth,nHeight,xStart,yStart)
GdiBitBlt(xStart-i,yStart+i,nWidth,nHeight,xStart,yStart)
i = i + 4
endwhile
exit